1000 REM *** EIN SPRITE-JAGD ***
1010 :
1020 :
1030 REM ** AUSGABE PROGRAMMELDUNG
1040 :
1050 PRINT "[147]BITTE WARTEN";
1060 :
1070 :
1080 REM ** SPRITE-DATEN LADEN
1090 :
1100 FOR N = 896 TO 958   :REM 1.SPRITE
1105 :   READ SPDTA
1110 :   POKE N, SPDTA
1130 NEXT N
1140 PRINT". ";           :REM PKTAUSGB
1150 :
1160 FOR N = 960 TO 1022  :REM 2.SPRITE
1165 :   READ SPDTA
1170 :   POKE N, SPDTA
1190 NEXT N
1200 PRINT". ";           :REM PKTAUSGB
1210 :
1220 DATA   0, 28,  0,  0, 62,  0
1230 DATA   0, 62,  0,  0, 62,  0
1240 DATA   0, 28,  0,  0,  8,  0
1250 DATA   0,255,128,  0,255,128
1260 DATA   0,190,128,  0,156,128
1270 DATA   0,136,128,  0,190,128
1280 DATA   0,190,128,  1,156,192
1290 DATA   1,148,192,  0, 20,  0
1300 DATA   0, 20,  0,  0, 20,  0
1310 DATA   0, 54,  0,  0,119,  0
1320 DATA   0,119,  0
1330 :
1340 DATA   0, 28,  0,  0, 62,  0
1350 DATA   0, 62,  0,  0,127,  0
1360 DATA   0, 93,  0,  0,  8,  0
1370 DATA   0,127,  0,  0,127,  0
1380 DATA   0, 93,  0,  0, 73,  0
1390 DATA   0, 93,  0,  0,127,  0
1400 DATA   0,255,128,  0, 62,  0
1410 DATA   0, 62,  0,  0, 20,  0
1420 DATA   0, 20,  0,  0, 20,  0
1430 DATA   0, 20,  0,  0, 54,  0
1440 DATA   0,119,  0
1450 :
1460 :
1470 REM ** SPRITE-REGISTER VORBEREITEN
1480 :
1490 PRINT "[147]"      :REM SCHIRM LOESCH.
1500 VIC = 53248    :REM GRAFIKBAUSTEIN
1510 :
1520 POKE 2040,14   :REM DATENZEIGER 0
1530 POKE 2041,15   :REM DATENZEIGER 1
1540 :
1550 POKE VIC,110   :REM HORZNTL.POS. 0
1560 POKE VIC+2,210 :REM HORZNTL.POS. 1
1570 POKE VIC+1,79  :REM VERTKAL.POS. 0
1580 POKE VIC+3,179 :REM VERTKAL.POS. 1
1590 :
1600 POKE VIC+39,3  :REM 0 IST HELLBLAU
1610 POKE VIC+40,7  :REM 1 IST GELB
1620 :
1630 POKE VIC+23,3  :REM BEIDE SPRITES
1640 POKE VIC+29,3  :REM DOPP. GROESSE
1650 :
1660 POKE VIC+21,3  :REM BEIDE SICHTB.
1662 :
1664 :
1666 REM ** SPRITE-BEWEGUNG VORBEREITEN
1667 :
1668 D0 = 1 : D1 = -1
1670 :
1672 :
1674 REM ** VERTIKALE BEWEGUNG
1676 :
1678 FOR MOVE = 1 TO 100
1680 :   POKE VIC+1, PEEK(VIC+1) + D0
1682 :   POKE VIC+3, PEEK(VIC+3) + D1
1684 :   GET KP$
1686 :   IF KP$ = "" THEN 1690
1688 :      MOVE=100 : KEYPRESS = -1
1690 NEXT MOVE
1692 :
1694 :
1696 REM ** BEI TASTENDRUCK ABBRECHEN
1698 :
1700 IF KEYPRESS THEN 1750
1702 :
1704 :
1706 REM ** HORIZONTALE BEWEGUNG
1708 :
1710 FOR MOVE = 1 TO 100
1712 :   POKE VIC, PEEK(VIC) + D0
1714 :   POKE VIC+2, PEEK(VIC+2) + D1
1716 :   GET KP$
1718 :   IF KP$ = "" THEN 1722
1720 :      MOVE=100 : KEYPRESS = -1
1722 NEXT MOVE
1724 :
1726 :
1728 REM ** BEI TASTENDRUCK ABBRECHEN
1730 :
1732 IF KEYPRESS THEN 1750
1734 :
1736 :
1738 REM ** RICHTUNG UMGEKEHRT UND LOS
1740 :
1742 D0 = -D0 : D1 = -D1
1744 GOTO 1670
1746 :
1748 :
1750 REM ** RUECKSETZEN DES REGISTERS
1760 :
1770 POKE VIC+21,0  :REM SPRITES AUS
1780 POKE VIC+29,0  :REM UND WIEDER
1790 POKE VIC+23,0  :REM NORMALGROESSE
1800 :
1810 END